library(ggplot2)
library(tidyverse)
library(tidyr)
library(dplyr)
library(RColorBrewer)
library(ggsci)
library(viridis)
library(plotly)
library(forcats)
library(tidyquant)
library(scales)
library(minpack.lm)
library(broom)

setwd(dir = "/Users/bayhi/Desktop/")
getwd()

raw.heatmaps <- tibble(filename=list.files("Hb"))
setwd(dir = "Edited-Heatmaps/")
HeatmapData <- raw.heatmaps %>%
  rowwise() %>%
  do(., read_csv(file=.$filename))
setwd(dir = "/Users/bayhi/Desktop/All-Shift-Comparison/")
getwd()
write.csv(HeatmapData, file="merged_heatmapdata.csv", row.names = FALSE)
head(HeatmapData)